unit mail_Comp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase, IdSMTP, IdMessage,
  IdMessageCoder, IdMessageCoderMIME;

procedure msgcompl(Sender: TObject);
//procedure addAttach(filepath:string);

type
  TMailComp = class(TForm)
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MailComp: TMailComp;

implementation

{$R *.dfm}

procedure msgcompl(Sender: TObject);
begin

end;

end.
